﻿Public Class frmBuy

 

    Private Sub frmBuy_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmb_mes.SelectedItem = cmb_mes.Items(Now.Month.ToString - 1)
    End Sub
End Class